SUBROUTINE readmw(atom,mw)

	CHARACTER(3) :: atom,tzz
	REAL :: mw
	INTEGER :: io,i

	open(unit=20,file='UCSD/mw.dat')

	i=0
	io=0
	DO
	i=i+1
	IF(io.ne.0.or.tzz.eq.'END') EXIT
	IF(i.eq.1) read(20,*,IOSTAT=io) tzz
	IF(i.ge.2) read(20,*,IOSTAT=io) tzz,mw
	if(tzz.eq.atom) EXIT
	ENDDO

	close(20)
END SUBROUTINE readmw
